20 LPRINT CHR$(18)
110 PRINT "LUNAR LANDER"
120 T=0
130 H=500
140 V=50
150 F=120
155 GOSUB 500
165 GOSUB 700
166 LPRINT “H”
170 PRINT "TIME:";T;" HIGH:";H
180 PRINT "VEL:";V;" FUEL:";F
190 IF F=0 THEN GOTO 240
200 REM === BURN ===
210 INPUT "BURN (0-30)?";B
220 IF B<0 THEN B=0
230 IF B>30 THEN B=30
240 IF B>F THEN B=F
250 REM === UPDATE ===
260 V1=V-B+5
270 F=F-B
300 H=H-(V1+V)/2
305 IF H<1 THEN GOTO 350
310 T=T+1
320 V=V1
330 GOTO 165
340 REM === LANDING ===
350 V1=V+(5-B)*H/V
352 T=T+1
355 GOSUB 700
357 IF V1>5 THEN GOSUB 800
358 LPRINT “M100,-50”
360 PRINT "IMPACT VEL:";V1
370 IF V1>5 THEN LPRINT "YOU CRASHED"
380 IF V1>5 THEN LPRINT “PYOU CRASHED”
390 IF V1>1 AND V1<6 THEN PRINT "BUMPY"
400 IF V1<2 THEN PRINT "FIRST CLASS"
410 IF V1<6 THEN LPRINT “PWELL DONE”
420 LPRINT “R0,-100”
430 END
500 REM === DECOR ===
510 LPRINT CHR$(18)
520 LPRINT “I”
521 LPRINT “S2”
522 LPRINT “C0”
523 LPRINT “M55,0”
530 LPRINT “P=== LUNAR LANDER ===”
540 LPRINT “S0”
541 LPRINT “H”
542 LPRINT “M5,-550”
543 LPRINT “I”
544 LPRINT “X0,10,50”
550 X=0
560 M=10
570 L=15
580 LPRINT “C2”
585 LPRINT “H”
590 LPRINT “J”;L;”,”;M;”,”;L;”,-”;M
600 M= INT(RAND*25)+1
610 L= INT(RAND*30)+1
620 X=X+L*2
630 IF X<476 THEN GOTO 590
640 RETURN
700 REM === DRAW SHIP ===
710 LPRINT “HC3”
720 LPRINT “R”;25*T;”,”;H
730 LPRINT “J3,3,14,0,3,-3”
735 LPRINT “R-3,3”
740 LPRINT “J0,5,-14,0,0,-5”
745 LPRINT “R4,7”
750 LPRINT “J6,0,3,3,0,4,-3,3,-6,0”
752 LPRINT “J-3,-3,0,-4,3,-3”
755 LPRINT “R3,-8”
760 LPRINT “J-3,-3,6,0,-3,3”
770 IF B=0 THEN RETURN
780 LPRINT “C1R0,-5”
790 LPRINT “J3,-3,-3,-”;B
792 LPRINT “J-3,”;B;”,3,3”
795 RETURN
800 REM === EXPLOSION ===
805 LPRINT “R-13,-5”  (par rapport au centre du réacteur)
815 LPRINT “J-10,-1,9,7,-11,10,15,0”
817 LPRINT “J-6,14,11,-1,3,6”
818 LPRINT “J4,-7,8,11,-2,-14”
820 LPRINT “J16,2,-12,-13”
825 LPRINT “J12,0,-10,-6,6,-6,-7,0"
827 LPRINT “H”
830 RETURN

